home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / acciap1g / frmopen.frm < prev    next >
Text File  |  1999-08-01  |  12KB  |  359 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Begin VB.Form FrmOpen 
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    Caption         =   "#1"
  6.    ClientHeight    =   4200
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   5445
  10.    Icon            =   "FrmOpen.frx":0000
  11.    KeyPreview      =   -1  'True
  12.    LinkTopic       =   "Form1"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    ScaleHeight     =   4200
  16.    ScaleWidth      =   5445
  17.    ShowInTaskbar   =   0   'False
  18.    StartUpPosition =   3  'Windows Default
  19.    Begin VB.PictureBox FrmRescent 
  20.       BorderStyle     =   0  'None
  21.       Height          =   2895
  22.       Left            =   360
  23.       ScaleHeight     =   2895
  24.       ScaleWidth      =   4005
  25.       TabIndex        =   2
  26.       Top             =   600
  27.       Width           =   4005
  28.       Begin ComctlLib.ListView LstRecentFiles 
  29.          Height          =   1935
  30.          Left            =   120
  31.          TabIndex        =   5
  32.          Top             =   120
  33.          Width           =   3735
  34.          _ExtentX        =   6588
  35.          _ExtentY        =   3413
  36.          View            =   3
  37.          LabelEdit       =   1
  38.          LabelWrap       =   -1  'True
  39.          HideSelection   =   0   'False
  40.          _Version        =   327682
  41.          Icons           =   "ImageList"
  42.          ForeColor       =   -2147483640
  43.          BackColor       =   -2147483643
  44.          BorderStyle     =   1
  45.          Appearance      =   1
  46.          NumItems        =   2
  47.          BeginProperty ColumnHeader(1) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  48.             Key             =   ""
  49.             Object.Tag             =   ""
  50.             Text            =   "#1"
  51.             Object.Width           =   2540
  52.          EndProperty
  53.          BeginProperty ColumnHeader(2) {0713E8C7-850A-101B-AFC0-4210102A8DA7} 
  54.             SubItemIndex    =   1
  55.             Key             =   ""
  56.             Object.Tag             =   ""
  57.             Text            =   "#2"
  58.             Object.Width           =   2540
  59.          EndProperty
  60.       End
  61.       Begin VB.CommandButton CmdCancel 
  62.          Cancel          =   -1  'True
  63.          Caption         =   "CmdCancel"
  64.          Height          =   350
  65.          Left            =   120
  66.          TabIndex        =   4
  67.          Top             =   2520
  68.          Width           =   1120
  69.       End
  70.       Begin VB.CommandButton CmdOpen 
  71.          Caption         =   "CmdOpen"
  72.          Height          =   350
  73.          Left            =   120
  74.          TabIndex        =   3
  75.          Top             =   2160
  76.          Width           =   1120
  77.       End
  78.    End
  79.    Begin VB.PictureBox FrmOpenWindow 
  80.       BorderStyle     =   0  'None
  81.       Height          =   2655
  82.       Left            =   240
  83.       ScaleHeight     =   2655
  84.       ScaleWidth      =   3885
  85.       TabIndex        =   1
  86.       Top             =   600
  87.       Width           =   3885
  88.    End
  89.    Begin ComctlLib.TabStrip TabStrip 
  90.       Height          =   3855
  91.       Left            =   120
  92.       TabIndex        =   0
  93.       Top             =   120
  94.       Width           =   4575
  95.       _ExtentX        =   8070
  96.       _ExtentY        =   6800
  97.       _Version        =   327682
  98.       BeginProperty Tabs {0713E432-850A-101B-AFC0-4210102A8DA7} 
  99.          NumTabs         =   3
  100.          BeginProperty Tab1 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  101.             Caption         =   "#1"
  102.             Key             =   ""
  103.             Object.Tag             =   ""
  104.             ImageVarType    =   2
  105.          EndProperty
  106.          BeginProperty Tab2 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  107.             Caption         =   "#2"
  108.             Key             =   ""
  109.             Object.Tag             =   ""
  110.             ImageVarType    =   2
  111.          EndProperty
  112.          BeginProperty Tab3 {0713F341-850A-101B-AFC0-4210102A8DA7} 
  113.             Caption         =   "#3"
  114.             Key             =   ""
  115.             Object.Tag             =   ""
  116.             ImageVarType    =   2
  117.          EndProperty
  118.       EndProperty
  119.    End
  120.    Begin VB.Timer TmrSetWindow 
  121.       Interval        =   25
  122.       Left            =   4800
  123.       Top             =   120
  124.    End
  125.    Begin ComctlLib.ImageList ImageList 
  126.       Left            =   4800
  127.       Top             =   600
  128.       _ExtentX        =   1005
  129.       _ExtentY        =   1005
  130.       BackColor       =   -2147483643
  131.       ImageWidth      =   32
  132.       ImageHeight     =   32
  133.       MaskColor       =   12632256
  134.       _Version        =   327682
  135.       BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
  136.          NumListImages   =   3
  137.          BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  138.             Picture         =   "FrmOpen.frx":000C
  139.             Key             =   ""
  140.          EndProperty
  141.          BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  142.             Picture         =   "FrmOpen.frx":0326
  143.             Key             =   ""
  144.          EndProperty
  145.          BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
  146.             Picture         =   "FrmOpen.frx":0640
  147.             Key             =   ""
  148.          EndProperty
  149.       EndProperty
  150.    End
  151. End
  152. Attribute VB_Name = "FrmOpen"
  153. Attribute VB_GlobalNameSpace = False
  154. Attribute VB_Creatable = False
  155. Attribute VB_PredeclaredId = True
  156. Attribute VB_Exposed = False
  157. Public AllowClick As Boolean
  158. Private Sub CmdCancel_Click()
  159. Unload Me
  160. End Sub
  161.  
  162. Private Sub CmdOpen_Click()
  163.  
  164. On Error Resume Next
  165. Dim Filename As String
  166.  
  167. Filename = Me.LstRecentFiles.SelectedItem.SubItems(1)
  168.  
  169. If Err Then
  170.     MsgBox "Please select a item first.", vbCritical
  171.  
  172. ElseIf Left(Filename, 2) = "::" Then
  173.     DialogRetData = Filename
  174.     Unload Me
  175.  
  176. ElseIf FileExist(Filename) = False Then
  177.     MsgBox Filename & Chr(10) & "File not found", vbExclamation
  178.     
  179. Else
  180.     MsgBox Filename
  181.     DialogRetData = Filename
  182.     Unload Me
  183.     
  184. End If
  185. End Sub
  186. Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  187.     Dim i As Integer
  188.     If Shift = vbCtrlMask And KeyCode = vbKeyTab Then
  189.         i = Me.TabStrip.SelectedItem.Index
  190.         If i = Me.TabStrip.Tabs.Count Then
  191.             Set Me.TabStrip.SelectedItem = Me.TabStrip.Tabs(1)
  192.         Else
  193.             Set Me.TabStrip.SelectedItem = Me.TabStrip.Tabs(i + 1)
  194.         End If
  195.     End If
  196. End Sub
  197.  
  198. Private Sub Form_Load()
  199. '
  200. 'Get the command captions
  201. '
  202. Me.TabStrip.Tabs(1).Caption = GetCaption(Tab_New)
  203. Me.TabStrip.Tabs(2).Caption = GetCaption(Tab_Open)
  204. Me.TabStrip.Tabs(3).Caption = GetCaption(Tab_Recent)
  205.  
  206. Me.CmdCancel.Caption = GetCaption(Cmd_Cancel)
  207. Me.CmdOpen.Caption = GetCaption(Cmd_Open)
  208.  
  209. Me.LstRecentFiles.ColumnHeaders(1).Text = GetCaption(LstItm_Name)
  210. Me.LstRecentFiles.ColumnHeaders(2).Text = GetCaption(LstItm_File)
  211.  
  212. FrmPossDialog.Top = Me.Top + Me.FrmOpenWindow.Top + (-20 * GetTitleBarHeight) 'set the poss of the dialog this makes it less 'flashing'
  213. FrmPossDialog.Left = Me.Left + Me.FrmOpenWindow.Left + 200
  214.  
  215. Me.TmrSetWindow.Enabled = True 'Enable the 'Open-Window Finder'
  216. Me.Caption = Use_Caption
  217. '
  218. ' Load the Openwindow, but clips to FrmPossDialog for possition. using the timer
  219. ' Uses the random caption.
  220. '
  221. Retdata = OpenDialog(FrmPossDialog.hwnd, TempCaption)
  222.  
  223. If Not Retdata = vbNullString Then DialogRetData = Retdata 'If the user choose to open a file set this to the return
  224.  
  225. Unload Me 'Done
  226. End Sub
  227. Private Sub Form_Unload(Cancel As Integer)
  228. 'Nothing here, the opendialog is a child, so closed with main window (if still open)
  229. End Sub
  230. Private Sub LstRecentFiles_DblClick()
  231. If AllowClick = True Then 'If the user dblclicked an item it is set to true by LstRecentFiles_MouseDown
  232.     CmdOpen_Click
  233. End If
  234. End Sub
  235. Private Sub LstRecentFiles_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  236. On Error Resume Next
  237. If Not Me.LstRecentFiles.HitTest(x, y).Text = vbNullString Then 'Check if the user clicked an item
  238.     AllowClick = True 'Yes
  239. End If
  240. If Err Then AllowClick = False 'No
  241. End Sub
  242.  
  243. Private